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ABSTRACT: 


The VAX-11 MACRC assembler trans 
modules for input to the VAX-11 
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AUTHOR: Benn Schreiber, CREATION DATE: 30-AUG-78 
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BLOCK_SIZE: 
~BLKL 


-PSECT 


49:47 (CMACRO.SRCJRPTIRP.MAR; 1 
: -SBTTL DECLARATIONS 
; INCLUDE FILES: 
; MACROS: 
SMAC_CTLFLGDEF sDEFINE CONTROL Aer | 
SMAC_GENVALDEF ;DEFINE GENERAL VALU 
SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
ty Ba ;DEF INE pty NAME B 
SMAC_INPBLKDEF ;DEFINE INPUT BLOCK 
SMAC” INTCODDEF ; DEFINE INTs BUFFER CODES 
SMACASGDEF ; Define message codes 
: The following assumtions are made about the format of MNB and INP blocks 
: ASSUME MNBSL_LINK EQ 0 
ASSUME MNBS$B_NAME EQ MNBSL_LINK+4 
ASSUME MNBSL_TXTP EQ MNB$B_NAME +1 
ASSUME MNBS$W_FLAG EQ MNBSL_TXTP+4 
ASSUME MNBSL_PAGP EQ MNBSW_FLAG+2 
ASSUME MNBSL_PAGC EQ MNBSL_PAGP+4 
ASSUME MNBSL_CRSYMF EQ MNBSL_PAGC +4 
ASSUME MNBSB_ARGCT EQ MNBSL_CRSYMF +4 
ASSUME MNBSL_ARGP EQ MNB$B_ARGCT+1 
ASSUME INPSL_LINK EQ 0 
ASSUME INPSLINXTL EQ INPSL_LINK+4 
ASSUME INPSL_GETL EQ INPSL_NXTL+4 
ASSUME INPSL_IFLVL EQ INPSL “GETL+4 
ASSUME INPSL_IFVAL EQ INPSL pe 
ASSUME INPSL_RPTCNT EQ INPSL_IFVAL+4 
ASSUME INPS$L_PAGP EQ INPSL_RPTCNT+4 
ASSUME INPSB_ARGCT EQ INP$L_PAGP+4 
ASSUME INPS$L_ARGS EQ INP$B_ARGCT+1 
-PSECT MACSRW_DATA, NOEXE, LONG 


1 ; Block size of MNB or MXB block 
MACSRO_CODE_MAC ,MOWRT ,GBL LONG 


oe 3) 


| 


MACSRPTIRP REPEAT A 
v04-000 REPEAT D 


vw 
” 


K 7 | 
EPEAT PROCESSORS 16-SEP-1984 02:13:44 VAX/VMS Macro v04-00 p | 
OR Breen 1e8t Belated FAXZNRS fe RPTIRP.MAR: 1 ci ay 


-SBTTL REPEAT DIRECTIVE PROCESSOR 
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po+ 
; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE IS CALLED WHEN A_.REPT DIRECTIVE IS SCANNED. 
; ALL THAT IS DONE IS TO CLEAR THE EVALUATE EXPRESSION FLAG 
3 SO THAT NO CODE IS EMITTED TO PASS 2 TO EVALUATE EXPRESSIONS. 
REPTHD: : “REPT_HEAD = KREPT 
0068 06 €5 BBCC  #FLGSV_EVALEXPR,(R11),.+1 ;CLEAR EVALUATE EXPRESSION FLAG 
0000" CF D4 4 cLRL W*MACSGL_ABSFLAG ;LOOK FOR ABSOLUTE EXPRESSION 


Lee 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS CALLED AFTER THE REPEAT COUNT OF A .REPT 


SSSSSSSSSSSSSsSssssss 


Tl 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
0009 1 DIRECTIVE HAS BEEN EVALUATED. THE REPEAT BODY IS LOADED 
0009 1 INTO MEMORY, AND AN INPUT BLOCK IS CREATED TO READ THE 
0009 1 REPEAT BODY. 
9008 1 
8009 136° 
0009 137 ERREPT:: ;DIRECTIVE = REPT_HEAD ERRO2 
0009 «1 SVPUSH #0 :STACK A O 
09 10 0011 #1 BSBB Ss REPT :PROCESS THE REPEAT 
9013 14 $vPOP RO [CLEAR THE STACK 
og EE cee 
goic 143 REPT:: :DIRECTIVE = REPT_HEAD EXPR 
00 68 06 53 O1C 14 BBCS #FLGS$V_EVALEXPR,(R11),.4+1 ;RESET THE FLAG 
FOD' 30 Be ° 14 BSBwW MACSALC_1_PA sALLOCATE A PAGE 
0000'cF 50 00 00 14 MOVL RO,W°MACSGL_BLKPTR - Save address of block 
00000005 00 8 14 IF GREATER <INPS$K_BLKSIZ-MNBSK_BLKSIZ> 
56 50 O05 C1 : by ADDL #<INPSK_BLRSIZ-MNBSK_BLRSIZ>,RO,R6 ; Allow for greater size of INP 
VL ‘ ; Copy the address 
0 c 130 MOV. RO,R6 ¢ he add 
66 1C 00 6€ 00 2c 00 ¢ 13¢ MOVCS #0,(SP),#0,#MNBSK_BLKSIZ,(R6) ; Zero the MACRO name block 
7E D4 00 15 CLRL. = (SP) :SET NO MACRO ARGUMENTS 
50 53 9000" fr C 4 13 SUBL3 W*MACSGL_BLKPTR,R3.RO ; Figure space used in block 
0000° CF D A 155 MOVL. R6,W*MACSGL_MACPTR : Save address for BDYSCN 
7E 00000200 8F 3 C : 136 SUBL3. RO, #512,-(SP) :FIGURE SPACE LEFT AND STACK 
bb 047 1 PUSHL R SSTACK TEXT POINTER FOR CALLS 
00 ic _ ~(C€ 49 138 BBCS #FLGSV_RPTIRP,(R11),.+1 :FLAG IN AN REPEAT/IRP 
A OD 0 40 «15 MOVL  #CR,R10 sFORCE READING OF NEX 
b° 30 160 BSBW SREAD THE FIRST CHAR OF BODY 
O000'cF 0 Fe 5 161 CALLS #3,W*MACSBODY_SCAN [SCAN THE REPEAT TEXT BODY 
é 098 16 BBCC #FLGSV_RPTIRP[(R11),.+1 :FLAG NOT IN REPEAT/IRP 
5C ©6164 : NOW WE WILL TURN THE MACRO NAME BLOCK AT THE BEGINNING OF THE 
3¢ 165 + BLOCK INTO AN INPUT BLOCK. 
50 0B A6 dO 005C 189 MOVL $MNBSL_PAGP(R6) ,RO ;REMEMBER THE PAGE POINTER 
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MOVL W*MACSGL after Ae 
MOVL sae et hg (R6) 


MOVL unAcsGLe ARGPTRLRI 
MOVAW =(R1),(RB)+ 


MOVAB W*MAC$GET_RPT LIN. (R6)+ 
MOVAB WORACSGL TF _LEVE 
MOVL (R1), (R 

CLRL (R1)+ 
MOVL (R1), (R6)+ 

CLRL (R1) 

TSTL W*MACSGL_ABSFLAG 
Beat 40s 

MOva SP) 
SMAC_ERR NRTENTHARS 
BSBW  MACSERRORPT 
MOva (SP)+,RO 
BRB 


5 
MOVL W*MACSAL_VALSTACKLR7],R1; 
100$ 


CLRL 

MOVE — RI, (RG)¢ 
MOVL RO. (R6) 
CLRB Raye 
CLRL = (RO) + 


? 
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eS ae eager res of block 
ZAND MAKE THIS THE ag aneel INPUT BLOCK 
POI AFTER a 


O IF LEVEL/ 


ay mess age code 
RESTORE yy TO PASS 2 


AND USE w 
GET THE REPEAT COUNT 
F GEQ OK 
:ELSE REPEAT 0 TIMES 
SET THE REPEAT COUNT 
Set T THE oats POINTER 


ARGUMENTS 
;CLEAR FIRST POINTER LONGWORD 
;RETURN TO READ IN REPEAT TEXT 
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-SBTTL INDEFINITE REPEAT DIRECTIVE PROCESSOR 


ow -> 


OOo 


N ND 
T EP 
3 
B 199 p++ 
8B y ; FUNCTIONAL DESCRIPTION: 
6 ¢ 3 THIS ROUTINE SETS UP INDEFINTE REPEAT LOOPS. A MACRO NAME BLOCK 
86 $ IS ALLOCATED sh THE BEGINNIN G THE NAME IN TH 
6 4; WILL BE THE NAME OF THE FORMAL ARGUMENT FOR THE or THE 
6 S$; REAL ERGUMENTS ARE SCANNED AND INSERTED me A QUEUE. 
086 $ ; THE REPEAT 80 IS READ INTO CORE. AFTER THE TEXT 1S SCANNED, 
0B6 3 THE MACRO “ LOCK AT THE BEGINNING OF THE PAGE IS TRANSFORMED 
$89 3 ; INTO AN INP NTEXT BLOCK. THE INPUT CONTEXT IS THEN SWITCHED 
6 3 TO READ THES Inoer INTE REPEAT. 
0B6 10 ; 
086 1 
2 14 IRPC:: IRECTIVE = KIRP 
06 68 1D E3 0B6 15 BBCS #F LGSv. IRPC,(R11),IRP_O FLAG THIS IS IRPC AND GO 
04 11 ppee 16 BRB IRP ¥ (IN CASE IT HAPPENED TO BE SET) 
00BC H IRP:: DIRECTIVE = KIRP 
00 68 1D ES OOBC 1 BBCC #FLGSV_IRPC,(R11),IRP_O TFLAG THIS is” IRP (NOT IRPC) 
OE OOOS'CF £8 00C0 0 IRP_O: BLBS WeLSTSS_M MACRODEF+SYMSC_VAL,10$ ; Branch if Listing MACRO defs 
00C5 1 SINTOUT_LW INTS~ SETLONG, <A0, PAKCSGL._L Ist_1T> ;NO=-SEND TO PASS 2 
fre * 30 00D3 ; 108: BSBw “hACSSYM MSCN oat! FORMAL ARG NAME 
08 50 E8 it BLBS RO,20$ BRANCH Hy on BA ONE 
009 4 SAC _ERR sbi an No--get e code 
FFIF* 31 OODE 5 BRW MACSERRORLN ISSUE ERROR AN * RETURN 
1180 8F 00E1 $$ 20$: PUSHR #*M<R7,R8,R12> SA VE REGISTERS 
. 00E5S BSBW MACSALL_1_PAGE sALLOCATE A PAGE 
0000'CF 0200 8F C OOE8 8 MOVZWL #512 UBLOCK SIZE 3; Set size of current block 
C 50 DO OOEF 9 MOVL tREMEMBER’ START OF CURRENT PAGE 
OOOO'cCF 50 00 ones 9 MOVL RO.W*MACSGL_BLKPTR : Save block address 
OOF7 ¢ ; NOW WE WILL SET UP AN MNB AT THE BEGINNING OF THE PAGE. THE MACRO 
a4 % ; NAME WILL BE THE FORMAL ARGUMENT NAME. 
51 0C00'CF 9E OF7 35 MOVAB W*MACSAB_TMPSYM,R1 ;POINT TO FORMAL ARG NAME 
52. 61 QA OOFC 36 MOVZBL (R1),R2 ; Get Length of name 
5 D6 OOFF 7 INCL be 3 and include count byte 
33 =’ » C1 0101 8 ADDL Re, #MNBS$K_BLKSIZ,R3 ; Get total bytes required for M 
5 -— C 105 9 SUBL R5,#INPSK_IRPSIZ,R3 : is this less than size of INP Mplock? 
03 13 0109 40 Beat 25 : No if EQL 
50 C Hs r 25$ ADDL2 R35,R0 ; Aad cine” difference to MNB address 
7E 2 9 195 rk MOVB R2,-(SP) 
60 61 2 11 44 MOVC3 R2,(R1),(RO) : Copy formal arg name into MNB 
58 é ) FS 45 MOVL R3,R8 ; Save pointer 
0000' CF ; D 11 ry MOVL RB, W*MACSGL_MACPTR 
D4 O11D 24 CLRL = (R$) + ; Clear Link word 
83 E 90 11F $8 MOVB (SP)+,(R3)+ ; Store offset to 
83 01 B80 49 MOVW = #1, (RB) + STORE ARG i over’ FIRST WORD OF 
8§ 7C 01 af CLRQ (R3)+ ; Clear second word of text pointer, 
1 26 ; the flags word and page pointer 
83 7C 0127 5 CLRQ (R3)+ ; Clear PAGC and CRFSYM 
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rs Neal FADER ING TE REPEAT DIRECTIVE PROCESSOR met 84:13:03 ERACRO- SRCIRPTIRP. MAR; 1 (4) 
: 09 13¢ : mOVE Oh tnays STORE. POINTER TO ARGUMENT 
HH Dd 012C g MOVL  RB.(R3)¢ :$ 
' “ TR :SAVE POIN TER TO REAL ARG QUEUE 
0000" ‘ a i el 
a3 " i H § fortis | spagai caesi : (NOTE: IF THIS IS RPC THESE WORDS 
13a 6 t WILL GET CHANGED 
7 53 13A 6 MOVL  R3,R7 [SET POINTER INTO R oR LATER | 
’ FECO’ 1 6 BSBW ACSSKIPSP ‘SKIP SPACES 
2¢ 9 1 i 8g CHPB R10, #°A/,/ STOP ON A COMMA? | 
6 1 14 64 BN IF WED NO | 
FEB’ 14 65 BSBW MACSGETCHR ives SKIP IT eg 
oat HG GBF PEE ncn aon eA Et Rue amacaes gee 
0C 68 1D €0 O14 68 40$: BBS #FLGSV~IRPC, (R11), | If, URPC Let ARGSCN Look | 
8 ; $3 CMPB R10, #*A/</ 3 Ys : “1 le bracket? 
eM ote Shh BNEQ 508 + 1F NEO NO 
FEAS' 3 HE 7 BSBW MACSGETCHR ‘Tesh SKIP IT 
0068 05 €3 0158 4 BBCS ss #F GEV JENDMCH, (R11), 50$ FLAG ME SAW IT | 
” 8 > pias a _ BNEG SCAN REAL ARGS : If NEQ no--there are real arguments 
008A 31 O66 6 BRW NULL~REAL_ARGS 3 No actual arguments | 
Sie) 78 .ENABL LSB | 
O16? 380 | 
: AL ARGUMENTS, AND STORE THEM IN VIRTUAL MEMORY. | 
thes + : MAE WILL BE PEAKED TOGETER IN A paueve. THE QUEUE HEADER IS . | 
bier He + LOCATED AT THE BEGINNING OF THE PAGE + MNBS$K_BLKSIZ. FOLL LOWIN | 
0167 284 : THE QUEUE HEADER IS A LONGWORD POINTER TO THE INDEF INTE REPEA 
0167 85 i : TEXT. THIS WILL BE FILLED IN LATER. 
167 
167 7 SCAN. REAL_ARGS: 
,e+1 sFLAG IN A REPEAT/IRP 
ah PS ER He f CHB ORIDCSASy cnt ot ERIGHT ANGL LE BRACKET? | 
ab 36 i$ ot BSau MACSGETCH TYES=-GET NEXT CHARACTER | 
fee. 8 17 9 BSBW SOMA SSK IPS P [THEN SKIP SPACES | 
a 17 38 CMPB RIO ae :STOP ON END OF LINE? 
ad 4 33 159 94 BEQL iF EQL YES-~GO SCAN BODY 
: ; NO--get me 
FE7D' 3 183 32 on He ORR RCSERRORLN i ISSUE MESSAGE 10 PASS 2 
7A* 30 01 3 35 20$:  BSBW  MACSMAC OARG. SCN SCAN T HE REAL ARG 
56 ja’ DO 0186 98 MOVL  RO,R6 REM EMBER THE LENGTH OF THE ARG 
i? 0] ; 80 ONe At, #CR Sut ULL ARG--DID WE STOP ON EOL? 
” 3 3 : E 01 BNEQ 4 Fata iT NE EQN aide OK Be | 
8 6B OS ef g BBC atesy ENDMCHT CRIA). Incest BODY :YES--BRANCH IF NO. STARTING ange | 
oof 8 138 4 SMAC_ERR DIRSYAX ; Missi sing f \gnt angle br bracket | 
FE60" 30 019D 5 BSBW” MAC CSERRORLN ISSUE MESSA E TO PASS 2 | 
f ty 143 . 40S: SUBL iY tt ot [FIGURE SPACE USED oN PAGE | 
6 £3 1A6 SUBL RO, W*BLOCK_ SIZE,RO ; Figure space left on bl | 
£ ES Re ae es ft yay Vee i OM FOR ARGU BYTE NCOUNT 
OA ks 1AF 10 SUBL2 #16,R0 : AND ARG L 
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v04-000 INDEFINITE REPEAT DIRECTIVE PROCESSOR mi iaets 1 88 1:4 13: 7 ({MACRO.SRCIRPTIRP.MAR; 1 ° 
1 146 018 11 BGTR. 50$ ;BRANCH IF THERE I$ ROOM 
51 56 13, 1 1B \§ ADDL3 #<MXBSK_BLKSIZ+10>,R6,R1 ; Compute total size of block required 
FES ° 188 1 BSBW MACSALL~ BLOCK ; "and allocate gs of memory 
0000' CF 3 9? 1688 14 ASHL 9,R1,W"BLOCK_SIZE Set size of new block in bytes 
¢ 50 vO O1¢c1 315 MOVL 12 + SAVE PTR TO CURRENT PAGE 
1€4 18 ASSUME WXBSL_L INK EQ 0 
1€4 1 ASSUME MXBSL-PAGES EQ MXBSL_LINK+4 
80 0B A8 00 1€4 18 MOVL  MNBSL~ PAGPCR »,(RO)4~ :LINK INTO PAGE LIST 
80 651 D 1¢8 1 MOVL R1 Store block size in block 
0B ag 2¢ D0 1¢B 0 MOVL RIC MNBSL _PAGP(R8) 
5 0 pO O1CF 1 MOVL _RO,R? ‘UPDATE POINTER TO FREE SPOT 
50 O000'CF 00 O1D¢ : 50$: MOVL W*MACSGL_ARGPTR,RO [POINT TO THE ARGUMENT QUEUE HEAD 
31 68 1D £0 1D S #LGSV IR TREC, (R11),100$ BRANCH IF THIS IS IRPC 
480 67 E 0108 34 INSQUE ( 0) : INSERT NEW ARG AT END 
57 08 CO O1DF 5 DDL :SKIP THE ARG QUEUE LINK WORDS 
87 56 BO Oiee 6 MOV) R6,(R7)¢+ :STORE LENGTH OF ARG 
67 0000'CF 36 28 O1E 7 MOVC3 R6,W*MACSAB_TMPBUF,(R7) ;COPY ARG INTO PAGE 
57 53 pO O1EB 8 MOVL , [UPDATE PAGE POINTER 
FF76 31 ig 93 BRW SCAN_REAL_ARGS 
gir 31; THE REAL ARGUMENTS WERE NULL 
O1F1 338 | NULL_REAL_ARGS: 
18 68 1D €1 O1F1 34 90$:~ BBC #FLGSV_IRPC,(R11),INGEST_BODY ;BRANCH IF IRP (NOT IRPC) 
50 OO00'CF DO O1FS 335 MOVL  W*MACSGL_ARGPTR,RO TIRPC--PICK UP QUEUE HEAD 
564 OIFA 36 CLRL = R6 ‘CLEAR LENGTH OF STRING TO COPY 
O1FC 338 ; THIS IS AN_IRPC. SET UP THE "ARGUMENT'' FOR MACSGET_IRC_LIN. 
OiFC 39 : THEN COPY THE ARGUMENT STRING AND MARK THE END WITH™A O BYTE. 
80 01 BO O1FC 341 1008: mMovw #1, (RO)+ :SET THE LENGTH OF THE ARGUMENT 
80 94 Ou 4@ CLRB (Rb) + CLEAR T HE eve. (GET_IRC WILL 
80 04 A0 DE 0201 44 MOVAL 4(RO),(RO)+ :SET UP THE POINTER INTO THE 
0209 45 ‘STRING TO IRPC OV 
60 O000'°CF 56 28 0205 346 MOVC3 R6,W*MACSAB_TMPBUF,(RO) ; COPY THE IRPC STRING OUT 
83 94 0208 367 CLRB ss (R$) + [MARK THE END WITH A ZERO BYTE 
57 53 pO 0200 348 MOVL RS R7 [UPDATE PAGE POINTER 
9210 49 .OSABL LSB 
0210 351 : HERE WHEN ALL ARGUMENTS HAVE BEEN SCANNED. NOW SCAN THE INDEF INTE 
8513 2g : REPEAT BODY AND STORE IT IN VIRTUAL MEMORY ALSO. 
0 10 54 
1 55 INGEST_BODY: 
58 DD O 19 36 PUSHL R8 :POINT TO THE ONE ARGUMENT 
50 57 5c C3 021 5 SUBL3 R12,R7,R0 SFIGURE SPACE USED 
7E 0000°CF 3 6433 8 16 58 SUBL RO W*BLOCK. SIZE,-(SP) : 5 fuer space left 
06 6€ 01 1c 6-359 CMPL =s(SP) #6 15 HERE ENOUGH ROOM? 
19 14 iF 60 BGTR 10% sIF 
Fope" 30 1 61 BSBW MACSALL_1_PAGE :NO-=ALLOCA TE A PAGE 
5c 60550—t—«é 4 6¢ MOVL :SAVE P OINTER TO CURRENT PAGE 
80 0B A8 00 7 % MOVL mNBSL PAGP(RB), (RO)+ LINK INTO PAGE LIST 
80 a: B 64 MOVL #1 : Store block Fs in block 
0B ag C 00 65 ROVL R13. MNBSL _PAGP(R8) 
5 0 b0 66 [UPDATE POINTER TO FREE SPOT 
6E 018 BF C 67 NOV SUL #<512-MXBSK_BLKSIZ>,(SP)'; Correct count on stack 


—— 
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v04-000 INDEFINITE REPEAT DIRECTIVE PROCESSOR SEP=1984 84: 13:23 Yn MACRO.SRCIRPTIRP.MAR; 1 . 
57 DD A 68 10$: PUSHL R7 sSTACK POINTER FOR TEXT 
SA OD 7 C § MOVZBL #CR,R10 sFORCE READING OF NEW LINE 
5 0 : 0 BSBW MACSGETCHR ;READ FIRST CHARACTER OF THE BODY 
QOOOO'cF 0 FB 4g 71 CALLS Pu “MACSBODY_SCAN 3SCAN THE REPEAT 
0 68 £ ‘f og BBCC FFLOSV RPTIRPS CRIT)» «4 +1 ;FLAG NOT IN REPEAT VIRP 
48 74 ; NOW TURN THE MNB INTO AN INPUT CONTEXT BLOCK AND SWITCH TO THE 
8 9 . NEW CONTEXT BLOCK. 
50 0B AB co 9 4B 8 MOVL MNBSL PAGERS) :GET THE PAGE POINTER 
58 OO00'CF DO O24F 378 MOVL W*MACSGL_BLKPTR, Re : Get address for INP bloc 
68 90007 ce d0 2 79 MOVL WMACSCLINDUTP. CRB) :SET LINK INTO INPUT cBNTEXT BLOCK 
56 0 ff D 9 80 MOVL W*MACSGL_MACPTR,R6 ; Get address of MNB 
0000' CF 8 DE 25 81 MOVAL (RB)+,W°MACSGL_INPUTP SET AS NEW INPUT CONTEXT BLOCK 
51 OO00'CF DO 026 8¢ MOVL W°MACS$GL_ARGPTR,R1 3GET POINTER TO WORD AFTER -1 
88 71 3E 0268 8 MOVAW =(R1),(RB)+ STORE PTR TO END OF 
0268 84 THAT MACSGET_IRP_LIN WILL GET 
0268 85 IRST REA GUM 
07 68 1D) =«6©€1 «0268 86 BBC #FLGS$V_IRPC,(R11),20$ : BRANCH IF THIS WAS IRP 
88 0000" CE H 4 of 4 ROVAB W°MACSGET_IRC_LIN, (R8)+ ; NO wT iRPt=-SET INPUT LINE ROUTINE 
88 OOO0O'CF SE 0276 89 20s MOVAB W*MACS$GET_IRP_LIN,(R8)+ :ADDRESS OF ROUTINE yi GET NEXT LINE 
51 QOOO'CF 9E& 0278 390 308 MOVAB WOnACeGL TF_LEVEL,R1 ‘POINT TO IF LEVEL/VALUE 
88 61 00 0280 91 MOVL (RBY+ ;SAVE OLD IF LEV he 
81 D4 0283 3¢ CLRL (RIDs :SET NEW IF LEVEL 
88 61 D0 0285 9 MOVL (R1),(RB)+ [SAVE OLD IF VALUE 
61 D& 0288 94 CLRL (R1) [CLEAR NEW IF VALUE 
88 57 DO 028A 95 MOVL R7, (RB)+ :STORE START oF ATEXT POINTER 
88 50 00 028d 96 MOVL RO, (RB)+ ‘STORE THE PAGE POINTER 
88 01 90 bS95 397 MOVB Sitcae tn ONE ARGUMENT 
06 6B 1D «€5 0293 398 BBCC #FLGSV_IRPC,(R11),40$ ;BRANCH | NOT IRPC (AND CLEAR FLAG) 
88 1C AB DE 0297 399 MOVAL MNBSK VaLKSIZ(RO)(RB)4 :IRPC=-POINT TO OUR ‘‘ARGUMENT'’ 
02 11 bSoe 400 BRB 50$ ; CONTIN 
88 D4 029D 401 408 CLRL (RB)+ [CLEAR ARG POINTER-- INPUT ROUTINE 
029F 40¢ ‘WILL SET IT LATER 
O29F 403 50$: 
O29F 404 IRP_EXIT: 
1180 8F BA O29F 405 PoP #*°M<R7,RB,R12> sRESTORE REGISTERS 
05 O02A3 406 RSB ‘RETURN TO READ FROM IRP TEXT 
02a4 407 
02A4 408 END 
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MACSRPTIRP REPEAT AND INDEFINITE REPEAT PROCESSORS 16-SEP-1984 02:13:44 VAX/VMS Macro V04-00 Page 10 
Symbol table etsy fF hat ERACRO. SRe RPTIRP.MAR; 1 (4 
INTS_PSECT s 8000001¢ ACSGET_IRP_LIN ‘eteeeeee x 4 PSC$M_NORD = FFFFFF7F 
INTS_REDEF = 00000010 MACSGET-RPT LIN teeeeeee xX 4 PSC$M_NOSHR = FFFFFFOF 
INTS_REF = BER8e 1E MACSGL_ABSFCAG teeeereee =X 4 PSC$M_NOVEC = FFFFFDFF 
INTS_REST = 0000001F MACSGL_ARGPTR aeeeeere =X 4 PSC$M_NOWRT z Aaadd 1d) 
TS_SAME = 00000009 MACSGL_BLKPTR eeeeeeee KX = 04 PSC$M_OVR s 8 0004 
INTS_SAVE = B88 0 MACSGL"IF LEVEL ‘teteeeee xX 4 PSC$M_PAGE = 000 $8 0 
INTS_SBTTL = 000 1 ACSGL_INPUTP eererere =X 4 PSC$M_PIC = 00000001 
INTS_SETFLAG = 0000 ¢ MACSGL-LIST_I1T teeeeee Xx 04 PSC$M_QUAD = 00004C00 
INTS_SETLONG = 000000 MACSGL-MACPTR eererere XK 8 04 PSCSM_RD = 44st 
INTS_SPIC = 00000024 MACSINTOUT 2 LW etereeee X04 PSC$M_REL = 44 
INTS_SPID = 00000025 MACSMAC_ARG_SCN seeeeere XK = 04 PSCSM_SHR = 00000020 
INTS_STIB = BP OR MACSSKIPSP aeeerere =X 4 PSC$M_USR = FFFFFFFD 
INTS_STIL = 00 MACSSYMSCNUP aeeeeree =X 4 PSCSM_VEC = 00000200 
INTS_STIW = 000000 MAC$_DIRSYNX = Q07D906A PSC$M_WORD = 00004400 
INTS_STKEPT = 00000029 MACS_NOFORMLARG= 0070916 PSCSM_WRT = 00000180 
INTS_STKG = 0090002A MACS-RPTCNTNABS= 0070910 PSC$S_ALIGNMENT= ait 
INTS_STKL = 00000028 MAC_SUBSYS = 00000070 PSCSV_ALIGNFLG = QOQOQQOO00E 
INTS_STKPC = 0000002C MNBSB_ARGCT 00000017 PSC$V_ALIGNMENT= QQ00000A 
INTS$_ST = 0000002D MNB$B_NAME 444 PSCSV_EXE = 4444444 
INTS$_ST = 00000034 MNBSK_BLKSIZ 000001C PSC$V_GBL = 00000004 
INTS_STOL = 44 4 4 $SL_AR seh eH PSC$V_LIB = 00000001 
INTS_ST = 000000 MNBSL_CRSYMF 0000001 PSC$V_OVR = 00000002 
INT$_STRB = 0000002F MNBSL_LINK 00000000 PSC$V_PIC = BO 000800 
INTS_STR = 00000031 MNBSL_PAGC 0000000F PSC$V_RD = 00000007 
INTS_STRSB = ea tL MNBS$L_PAGP F088 ON PSC$V_REL = 00000003 
INTS_STRSW = 000000 MNBSL_TXTP 0000000 PSCS$V_SHR = 00000005 
INTS_STRW = 00000030 $W- 00000009 PSC$V_VEC = 00000009 
INT$_STSB = 00000036 MXBSK_BLKSIZ 00000008 PSCS$V_WRT = 00000008 
INTS_STSW = 00000037 MXBSL_LINK 00000000 PSC$W_FLAG 00000009 
INT$_S = 0000000A MXBSL-PA 00000004 PSC$W_OPTIONS 0000000D 
INTS_SUME = 00000039 NULL_REAL_ARGS Q00001F1 R 04 RDX$V_BINARY = 00000000 
INTS_WRN = 00000038 OBJSR_BUFSIZ = 00000200 RDX$SV_DECIMAL = 00000002 
INT$_XOR = 000000 OPFSM_LASTOPR = 00002000 RDOX$V_DOUBLE = 00000005 
IRP QOOOOOBC RG 04 OPFSM_OPTEXP = 00001000 RDOX$V_FLOAT = 00000004 
IRPC 00000086 RG 04 OPFSV_LASTOPR = 0000000D RDX$V_GFLOAT = 00000006 
, 000000C0 R 04 OPF$V_OPTEXP = 0Q000000C ROX$V_HEX = 00000003 
IRP_EXIT 0000029F R 04 PSC$B_NAME 00000004 RDOX$V_HFLOAT = 00000007 
LSTSG_MACRODEF eeeeree xX 04 PSC$B_SEG 0000000C RDX$V_OCTAL = 00000001 
LSTSK_BUFSIZ = si 44 9 PSC$B_UNUSED 0000000 REG$_PC = 0000000F 
LSTSK_L_P_PAGE = 0000003C PSC$K_BLKSIZ 0000001 EPT OO00001C RG 04 
LSTSK_TITCE_SIZ= 00000028 PSC$K_NO_OPTNS = sist tg REPTHD 00000000 RG 04 
MAB$B_ARGNO 00000005 PSC$L_CURLOC 000000F SCAN_REAL_ARGS 00000167 R 04 
MABSB_NAME 00000004 PSCSL_LINK 00000000 = 00000038 
MABSK_BLKSIZ 000 it PSCSL_MAXLGTH eee ees STBSK_PG MISS = eS 4 ly 
SL-DVPTR 000 PSC$M_ABS = FFFFFFF SYM$B_NARE 0000004 
MABSL_LINK 00000000 PSCSM_ALIGNFLG = O88 G0 SYM$B_SEG 0000000C 
MABSW_DVLEN 00000006 PSCSM_ALLOPTNS = QOQOO3FF SYM$B_ TOKEN 00000008 
MACSAB_TMPBUF =«_steeeenee =X | 04 PSCS$M_BYTE = 00004000 SYM$K~BLKSIZ 0000000 
MACSAB” TMPSYM eeeeeere KX 04 PSC$M_CON = FFFFFFF SYMSK_MAXLEN = QQ0Q001F 
CSALC_1 PAGE eeeeeee Xx 04 PSC$M_DEFAULT = pppoe SYMSK_TWOCOL = 8808018 
MACSALL BLOCK aeeeeeee =X 4 PSCSM_EXE = 0000 or SYMSL_LI 00 $800 
MACSAL_VALSTACK seeeeeee x 4 PSC$M_GBL = 0000001 SYMSL— 000000 
MACSBOBY SCAN eeeerere XK 04 PSCSM_LCL = reper ee SYMS$M_ABS = 00000010 
MACSERRORLN eeeereee =X = 04 PSC$M_LIB = ie ht SYMSM_ = 0000010 
MACSERRORPT eeneeeee =X 4 PSC$M_LONG = 00004 SYM$M_CRFO = 0900200 
MACS$GETCHR eeneeeee xX 4 PSC$M_NOEXE = FREFFFBF SYM$M_DEBUG = 000 be 
MACSGET_IRC_LIN tteeeeee x 4 PSC$M_NOPIC = FFFFFFFE SYMSM_DEF = 00000001 
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Symbol table o73Eb= 1982 nee 747 ([CMACRO.SRC RPTIRP-MAR; 1 — 


SYMSM_DELMAC = 
SYMSM_EPT s 
SYMSM_EXTRN = 
MSM_GLOBL = 
SYMSM_LOCAL = $6 
SYMSM_ODBG = 4 
SYMSM_REF = oh 8 
SYMSM_RELPSECT = 0 
YMSM_ SUP = 0000400 
SYMSM_WEAK = i444 
SYMSM_XCRF = 00001 
mA SORE 
V_AS = 8 
SYM$V_CRFO = 0000000D 
SYM$V_DEBUG = 00000005 
SV_DEF = 00000000 
SYM$V_DELMAC = 00000009 
SV_EPT = 00000009 
SYM$V_EXTRN = 00000003 
V_GLOBL = 00000002 
SYM$V_LOCAL = 00000006 
$V_ODBG = Q000000A 
SYMSV_REF = 9000000? 
SYMSV_ oRELPSECT = 00000008 
SYM$V_SUP = 000000 
SYMSV ~GeAK = 00000001 
SYMSV_XCRF = 0000000C 
SyRSu_ FLAG 00000009 
1s = 00000009 
= 00000400 
x = 0000000F 
toewce re ocae nase ese + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL a gh NOEXE NORD NOWRT NOVEC BYTE 
00000000 ( oe (oe -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$SABS 0000003C (¢ 60.) 02 ¢ §-} NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
MACSRW_DAT 00000004 ( 4.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
MACS$RO_ CODE MAC Q00002A4 ( 676.) 04 ( 4.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
gees vee eeeoeeeceeoe oem eececoce > 
! ; Performance indicators ! 
Page faults CPU Time Elapsed Time 
Initialization 9 0:00:00.04 0 
pomnend processing 163 : 0:37 8: 80; pF: ee 
208 0:00:03.44 8: Ba: 217.94 
Syabol table sort 0 :00:00.43 1.9 
Pass 2 oH :00: 2H 0: 0: 4.3 
Symbol table output 1 8 :00:00.16 :00:00. 
Psect synopsis output 2 :00:00.02 0:00:00.02 


8 
MACSRPTIRP REPEAT AND INDEFINITE REPEAT PROCESSORS 1 mits 


VAX-11 Macro Run Statistics 


Cross-reference output 9 
Assembler run totals 46 


The working set Limit was 1350 pages. 


00:00:08:35  90:00:29:96 


31190 bytes (61 pages) of virtual memory were used to butler tne intermediate 


ipere were 30 pages of symbol table space allocated to hold 
16 pages of virtual memory were used to define 15 macros. 


Macro Library name 


Macros defined 


-$255$DUAZ8: (MACRO. OBJ MACRO, MLB; 1 13 
$255$DUA28:(SYSLIBJSTARLET.MLB; 2 i 
TOTALS (all Libraries) 17 


574 GETS were required to define 17 macros. 


There were no errors, warnings or information messages. 


! Macro Library statistics ! 


mon nreacre rn sen eon ne seeneces td 


0 non-local and 
source Lines were read in Pass 1, producing 20 object records in Pass 2 


58 °focat symbols. 


MACRO/LIS=LIS$:RPTIRP/OBJ=OBJ$:RPTIRP MSRC$:RPTIRP/UPDATE=(ENH$:RPTIRP) +LIB$:MACRO/LIB 


pa19B6 Of :49:47 


AX/VMS Macro V04-00 
MACRO.SRCJRPTIRP.MAR; 1 


NT CORPORATION 
D PROPRIETARY 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


0227 


